home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gg.d64 / menu.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  26 lines

  1. 5 IFN>0THEN140
  2. 40 POKE53280,0:POKE53281,0:GOSUB3000:PRINT"[154]"TAB(12)"[204]OADING [205]ENU [198]ILE...":CLOSE2:CLOSE15:PRINTTAB(15)"[208]LEASE [215]AIT":OPEN15,8,15:OPEN2,8,2,"0:MENUFILE,S,R":GOSUB2000:INPUT#2,NA$
  3. 100 IFLEN(NA$)<39THENNA$=" "+NA$
  4. 105 IFLEN(NA$)<40THENNA$=NA$+" ":GOTO100
  5. 110 INPUT#2,N:DIML$(N):FORX=0TON:INPUT#2,L$(X):NEXT:CLOSE2:CLOSE15:LOAD"MENUML",8,1
  6. 140 PC=0:P=INT(N/10)
  7. 150 PRINT"[147][158]    [198]ROM [212]HE [212]ORONTO [208]ET [213]SERS [199]ROUP    ";:PRINT"";NA$:PRINT"             [196]ISK [195]ONTENTS: ":IFPC>PTHENPC=0
  8. 180 PRINT"              [208]AGE"PC+1" OF"P+1:PRINT:PRINT:PE=9:IFPE+(PC*10)>NTHENPE=N-(PC*10)-1
  9. 200 FORX=0TOPE:PRINTTAB(5)"[154][208]ROGRAM #"X"-[154] "L$(X+(PC*10)):NEXT:PRINT"[208]RESS 0 -"PE" TO [204]OAD [208]ROGRAM":PRINT"[208]RESS [210][197][212][213][210][206] TO SEE [206]EXT [208]AGE":PRINT"[158][208]RESS [198]7 TO [210]EAD [208]ROGRAM [196]ESCRIPTIONS"
  10. 255 PRINT"[208]RESS [209] TO [209][213][201][212][154]":POKE198,0:POKE679,0
  11. 260 GETA$:IFA$=""THEN260
  12. 265 IFA$="Q"THENCLOSE2:CLOSE15:END
  13. 270 IFA$=CHR$(13)THENPC=PC+1:GOTO150
  14. 280 IFA$="[136]"THEN350
  15. 290 IFA$<"0"ORA$>CHR$(PE+48)THEN260
  16. 300 A=VAL(A$):IFA>PETHEN260
  17. 306 GOSUB3000:FORDB=1TO3500:NEXT:POKE53281,6:POKE53280,14:PRINT"[147][144][154]"CHR$(142)"LOADING: "L$(A+(PC*10)):PRINT"LOAD"CHR$(34)L$(A+(PC*10))CHR$(34)",8,1":PRINT"RUN":POKE631,13:POKE632,154:POKE633,13:POKE198,3:NEW
  18. 350 L=0:P$="":OPEN15,8,15:OPEN2,8,2,"0:DOCFILE,S,R":GOSUB2000:PRINT"[147][154]";:SYS823:CLOSE2:CLOSE15:IFPEEK(679)=88THEN510
  19. 480 PRINT"[197]ND OF [198]ILE - [208]RESS ANY KEY FOR [205]ENU";:POKE198,0:CLOSE2:CLOSE15
  20. 500 GETA$:IFA$=""THEN500
  21. 510 PC=0:GOTO150
  22. 2000 INPUT#15,E1,E$,E2,E3:IFE1=0THENRETURN
  23. 2015 CLOSE2:CLOSE15:PRINT"[147] [196]ISK [197]RROR! ":PRINT""E1;"[157] ";E$;E2;"[157]";E3"[157] ":PRINT"[208]LEASE CHECK YOUR [196]ISK AND [196]RIVE":PRINT"BEFORE TRYING TO [210][213][206] AGAIN.[154]":END
  24. 3000 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"         ***** ***** *   * *****":PRINT"           *   *   * *   * *":PRINT"           *   ***** *   * *  **":PRINT"           *   *     *   * *   *":PRINT"           *   *     ***** *****"
  25. 3060 PRINT"   ([212]HE [212]ORONTO [208]ET [213]SERS [199]ROUP [201]NC.)":PRINT"       1912A [193]VENUE [210]OAD [211]UITE #1":PRINT"        [212]ORONTO, [207]NTARIO, [195]ANADA":PRINT"                 [205]5[205] 4[193]1":RETURN
  26.